#CLASS {CerdinLib}
#ALIAS mxp_reset {#mxp %char( 27)[3z
#sa %ansi(reset)}
#VAR CerdinLib_autor {Skrypt stworzony przez Cerdina. Wersja 12.08} {Skrypt stworzony przez Cerdina. Wersja 12.09}
#CLASS 0
#CLASS {CerdinLib|Odmiana}
#VAR odmien_przym_mb {%if(%ends(%1,"a") | %ends(%1,"e") ,%1,%concat(%if(%ends(%1,"i"),%1,%leftback(%1,1)),"ego"))}
#VAR odmien_przym_bm {%if(%ends(%1,"a") | %ends(%1,"e") ,%1,%if(%ends(%1,"iego"),%leftback(%1,3),%concat(%leftback(%1,3),"y")))}
#VAR odmien_mian {nevare}
#VAR odmien_bier {nevara}
#VAR odmien_rzecz_md {%if( %ismember( %1, @odmien_nieodmienialne), %1, %if( %db( @odmien_odmianaMD, %1), %db( @odmien_odmianaMD, %1), %if( (%ends( %1, ka))|(%ends( %1, ia)), %leftback( %1, 1)i, %if( %ends( %1, a), %leftback( %1, 1)y, %if( (%ends( %1, o))|(%ends( %1, e)), %leftback( %1, 1)a, @odmien_mb(%1))))))}
#VAR odmien_przym_md {%if((%ends(%1,ka))|(%ends(%1,ki)),%leftback(%1,1)iej,%if(%ends(%1,a),%leftback(%1,1)ej,%leftback(%1,1)ego))}
#VAR odmien_md {%case( %numwords( %1), @odmien_rzecz_md(%1), %if( %ismember( %1, @odmien_dwu_rasy), @odmien_rzecz_md(%1), @odmien_przym_md(%word(%1,1)) @odmien_rzecz_md(%word(%1,2))), %if( %ismember( %word( %1, 2) %word( %1, 3), @odmien_dwu_rasy), @odmien_przym_md(%word(%1,1)) @odmien_rzecz_md(%word(%1,2) %word(%1,3)), @odmien_przym_md(%word(%1,1)) @odmien_przym_md(%word(%1,2)) @odmien_rzecz_md(%word(%1,3))), @odmien_przym_md(%word(%1,1)) @odmien_przym_md(%word(%1,2)) @odmien_rzecz_md(%word(%1,3) %word(%1,4)))}
#VAR odmien_rzecz_mb_bn {%if( "%1"="%2", %1, %if( %ends( %1, e), %leftback( %1, 1)a, %if( (%ends( %1, ka))|(%ends( %1, ga)), %leftback( %1, 1)iem, %if( %ends( %1, ego), %leftback( %1, 3)m, %leftback( %1, 1)em))))}
#VAR odmien_rzecz_mn {%if( %ismember( %1, @odmien_nieodmienialne), %1, @odmien_rzecz_mn2(%1,%db(@odmien_odmianaMN,%1)))}
#VAR odmien_rzecz_mn2 {%if( "%2", %2, @odmien_rzecz_mb_bn(@odmien_mb(%1),%1))}
#VAR odmien_przym_mn {%if( %ends( %1, a), %1, %if( %ends( %1, ie), %leftback( %1, 1)m, %if( %ends( %1, e), %leftback( %1, 1)ym, %1m)))}
#VAR odmien_mn {%case( %numwords( %1), @odmien_rzecz_mn(%1), %if( %ismember( %1, @odmien_dwu_rasy), @odmien_rzecz_mn(%1), @odmien_przym_mn(%word(%1,1)) @odmien_rzecz_mn(%word(%1,2))), %if( %ismember( %word( %1, 2) %word( %1, 3), @odmien_dwu_rasy), @odmien_przym_mn(%word(%1,1)) @odmien_rzecz_mn(%word(%1,2) %word(%1,3)), @odmien_przym_mn(%word(%1,1)) @odmien_przym_mn(%word(%1,2)) @odmien_rzecz_mn(%word(%1,3))), @odmien_przym_mn(%word(%1,1)) @odmien_przym_mn(%word(%1,2)) @odmien_rzecz_mn(%word(%1,3) %word(%1,4)))}
#VAR odmien_rzecz_mc {%if( %ismember( %1, @odmien_nieodmienialne), %1, @odmien_rzecz_mc2(%1,%db(@odmien_odmianaMC,%1)))}
#VAR odmien_rzecz_mc2 {%if( "%2", %2, @odmien_rzecz_mc3(%1, %db(@odmien_rzecz_mc_konc,%rightback(%1,2))))}
#VAR odmien_rzecz_mc3 {%if( "%2", %leftback( %1, 2)%2, %if( %ends( %1, a), %leftback( %1, 1)ie, %if( (%ends( %1, e))|(%ends( %1, o)), %leftback( %1, 1)u, %if( %ends( %1, u), %leftback( %1, 1)owi, %1owi))))}
#VAR odmien_rzecz_mc_konc {dadziegadzehaszejajikacelalirarzetaciezazy}
#VAR odmien_przym_mc {%if(%ends(%1,ki),%1emu,%if(%ends(%1,ka),%leftback(%1,1)iej,%if(%ends(%1,a),%leftback(%1,1)ej,%if(%ends(%1,e),%1mu,%leftback(%1,1)emu))))}
#VAR odmien_mc {%case( %numwords( %1), @odmien_imie_mc(%1), %if( %ismember( %1, @odmien_dwu_rasy), @odmien_rzecz_mc(%1), @odmien_przym_mc(%word(%1,1)) @odmien_rzecz_mc(%word(%1,2))), %if( %ismember( %word( %1, 2) %word( %1, 3), @odmien_dwu_rasy), @odmien_przym_mc(%word(%1,1)) @odmien_rzecz_mc(%word(%1,2) %word(%1,3)), @odmien_przym_mc(%word(%1,1)) @odmien_przym_mc(%word(%1,2)) @odmien_rzecz_mc(%word(%1,3))), @odmien_przym_mc(%word(%1,1)) @odmien_przym_mc(%word(%1,2)) @odmien_rzecz_mc(%word(%1,3) %word(%1,4)))}
#VAR odmienp_bm {@odmienp_bm2(%1,%db(@odmien_odmianapBM,%1))}
#VAR odmien_liczebnik {%if( %eval( %1/10)>1, %item( 10|dwudziest|trzydziest|czterdziest|piecdziesiat|szescdziesiat|siedemdziesiat|osiemdziesiat|dziewiecdziesiat, %eval( %1/10))%item( y|a|e, %2)" ")%if( %1=2 or (%mod( %1, 10)=2 and %1>20), drug%item( i|a|ie, %2), %if( %1=3 or (%mod( %1, 10)=3 and %1>20), trzeci%item( |a|e, %2), %if( %mod( %1, 10)=0 and %1>19, "", %if( %1<10 or %1>19, %item( pierwsz|2|3|czwart|piat|szost|siodm|osm|dziewiat, %mod( %1, 10))%item( y|a|e, %2), %item( dziesiat|jedenast|dwunast|trzynast|czternast|pietnast|szesnast|siedemnast|osiemnast|dziewietnast, %eval( %1-9))%item( y|a|e, %2)))))}
#VAR odmien_imie_mc {%if( %ismember( %1, @odmien_nieodmienialne), %1, @odmien_imie_mc2(%1,%db(@odmien_odmianaMC,%1)))}
#VAR odmien_imie_mc2 {%if( "%2", %2, @odmien_imie_mc3(%1, %db(@odmien_rzecz_mc_konc,%rightback(%1,2))))}
#VAR odmien_imie_mc3 {%if( "%2", %leftback( %1, 2)%2, %if( %ends( %1, a), %leftback( %1, 1)ie, %if( %ends( %1, e), %leftback( %1, 1)u, %if( %ends( %1, o), %1wi, %if( %ends( %1, u), %leftback( %1, 1)owi, %1owi)))))}
#VAR odmien_mb {%if( %numwords( %1)<5, %if( %ismember( %word( %1, 3), @odmien_jakrzecz), %1, %case( %numwords( %1), @odmien_imie_mb(%1,[%rightback(%1,1)],[%ismember(%1,@odmien_nieodmienialne)],[%db(@odmien_wyjatekMB,%1)]), %if( %ismember( %1, @odmien_dwu_rasy), @odmien_2rase_mb(%1,[%db(@odmien_wyjatekMB,%1)]), @odmien_przym_mb([%word(%1,1)]) @odmien_rase_mb([%word(%1,2)],[%rightback(%word(%1,2),1)],[%db(@odmien_wyjatekMB,%word(%1,2))])), %if( %ismember( %word( %1, 2) %word( %1, 3), @odmien_dwu_rasy), @odmien_przym_mb([%word(%1,1)]) @odmien_2rase_mb([%word(%1,2) %word(%1,3)],[%db(@odmien_wyjatekMB,%word(%1,2) %word(%1,3))]), @odmien_przym_mb([%word(%1,1)]) @odmien_przym_mb([%word(%1,2)]) @odmien_rase_mb([%word(%1,3)],[%rightback(%word(%1,3),1)],[%db(@odmien_wyjatekMB,%word(%1,3))])), @odmien_przym_mb([%word(%1,1)]) @odmien_przym_mb([%word(%1,2)]) @odmien_2rase_mb([%word(%1,3) %word(%1,4)],[%db(@odmien_wyjatekMB,%word(%1,3) %word(%1,4))]))), %if( %pos( " na ", "%1"), @odmien_mb(%subregex("%1"," na .*","")), %1))}
#VAR odmien_imie_mb {%if( %3, %1, %if( %4, %4, %if( %2=a, %leftback( %1, 1)e, %if( %2=o or %2=u, %leftback( %1, 1)a, %if( %2=y, %if( %ends( %1, ey), %1a, %leftback( %1, 1)ego), %if( %2=i, %if( %ends( %1, ai), %1a, %1ego), %if( %ends( %1, ie), %1go, %1a)))))))}
#VAR odmien_rase_mb {%if( %3, %3, %if( %2=a, %leftback( %1, 1)e, %if( %regex( %1, "(?:um|o|e|u)$"), %1, %if( %regex( %1, "e.$"), %if( %ends( %1, rzec) or %ends( %1, iec), %leftback( %1, 3)ca, %if( %2=c, %leftback( %1, 2)ca, %if( %ends( %1, kiel), %leftback( %1, 3)la, %if( %ends( %1, rzel), %leftback( %1, 3)la, %if( %ends( %1, nek) or %ends( %1, tek), %leftback( %1, 2)ka, %1a))))), %1a))))}
#VAR odmien_2rase_mb {%if( %2, %2, %if( %ismember( %rightback( %word( %1, 1), 1), a|e|y|i), @odmien_przym_mb(%word(%1,1)) @odmien_rase_mb([%word(%1,2)],[%rightback(%word(%1,2),1)],[%db(@odmien_wyjatek_rasaMB,%word(%1,2))]), @odmien_rase_mb(%word(%1,1),[%rightback(%word(%1,1),1)],[%db(@odmien_wyjatek_rasaMB,%word(%1,1))]) %word( %1, 2)))}
#VAR odmien_bm {%if( %numwords( %1)<5, %if( %ismember( %word( %1, 3), @odmien_jakrzecz), %1, %case( %numwords( %1), @odmien_rzecz_bm(%1,[%db(@odmien_wyjatekBM,%1)],[%ismember(%1,@odmien_nieodmienialne)]), %if( %ismember( %1, @odmien_dwu_rasyB), @odmien_2rase_bm(%1,[%db(@odmien_wyjatekBM,%1)]), @odmien_przym_bm([%word(%1,1)]) @odmien_rzecz_bm([%word(%1,2)],[%db(@odmien_wyjatekBM,%word(%1,2))])), %if( %ismember( %word( %1, 2) %word( %1, 3), @odmien_dwu_rasyB), @odmien_przym_bm([%word(%1,1)]) @odmien_2rase_bm([%word(%1,2) %word(%1,3)],[%db(@odmien_wyjatekBM,%word(%1,2) %word(%1,3))]), @odmien_przym_bm([%word(%1,1)]) @odmien_przym_bm([%word(%1,2)]) @odmien_rzecz_bm([%word(%1,3)],[%db(@odmien_wyjatekBM,%word(%1,3))])), @odmien_przym_bm([%word(%1,1)]) @odmien_przym_bm([%word(%1,2)]) @odmien_2rase_bm([%word(%1,3) %word(%1,4)],[%db(@odmien_wyjatekBM,%word(%1,3) %word(%1,4))]))), %if( %pos( " na ", "%1"), @odmien_bm(%subregex("%1"," na .*","")), %1))}
#VAR odmien_rzecz_bm {%if( %3, %1, %if( %2, %2, %if( %ends( %1, e), %leftback( %1, 1)a, %if( (%ends( %1, o) and !%ends( %1, ego)) or %ends( %1, e) or %ends( %1, um), %1, %if( %ends( %1, iego), %leftback( %1, 3), @odmien_rzecz_bm2(%1,[%db(ego%char(30)y%char(29)kla%char(30)kiel%char(29)rla%char(30)rzel%char(29)nka%char(30)nek%char(29)rca%char(30)rzec%char(29)wca%char(30)wiec%char(29)nca%char(30)niec%char(29)zca%char(30)ziec,%rightback(%1,3))]))))))}
#VAR odmien_rzecz_bm2 {%if( %2, %leftback( %1, 3)%2, %if( %ends( %1, ca), %leftback( %1, 2)ec, %if( %ends( %1, a), %leftback( %1, 1), %1)))}
#VAR odmien_2rase_bm {%if( %2, %2, %if( %ends( %word( %1, 1), a) or %ends( %word( %1, 1), e), @odmien_rzecz_bm(%word(%1,1),[%db(@odmien_wyjatekBM,%word(%1,1))]) %word( %1, 2), @odmien_przym_bm(%word(%1,1)) @odmien_rzecz_bm(%word(%1,2),[%db(@odmien_wyjatekBM,%word(%1,2))])))}
#VAR odmien_przym_am {%if(%ends(%1,ej),%leftback(%1,2)a,%if(%ends(%1,iemu) or %ends(%1,iego), %leftback(%1,3),%if(%ends(%1,emu) or %ends(%1,ego), %leftback(%1,3)y,%if(%ends(%1,m),%leftback(%1,1),%1))))}
#VAR odmienp_bm2 {%if( %2, %2, %if( (%ends( %word( %1, 1), a)) or (%match( %1, "^%we$")) or (%regex( %1, "^(?:\w+)e (\w*)(?!o|e)\w\b")), %subregex( %1, "\b(par|\w*)e\b(?!.*e\b)", %%1a), %1))}
#BUTTON 26 {} {odmien_menu} {} {} {} {} {} {Size} {31} {32} {Pos} {1} {1199} {48} {} {Menu} {} "" {Explore|Inset} {Odmiany} {dzialania_odmiany} {4}
#CLASS 0
#CLASS {CerdinLib|Odmiana|odmien_menu} {menu}
#MENU {Dodaj wyjatek Mianownik - Biernik} {#va odmien_mian {};#pr odmien_mian {"Dodajesz wyjatek Mian-Bier. Mianownik (kto, co na lokacji stoi?): "};#if (@odmien_mian) {#va odmien_bier {@odmien_mb(@odmien_mian)};#pr odmien_bier {Wyjatek M-B. Mianownik: @odmien_mian, Biernik (kogo, co zabic?):};#yesno {Mianownik - @odmien_mian, Biernik - @odmien_bier, dodac jako wyjatek?} {Tak: #if (@odmien_mian=@odmien_bier) {#additem odmien_jakrzecz {%lower( @odmien_mian)}} {#addkey odmien_wyjatekMB {%lower( @odmien_mian)} {%lower( @odmien_bier)};#addkey odmien_wyjatekBM {%lower( @odmien_bier)} {%lower( @odmien_mian)};#if (%numwords( @odmien_mian)>1) {#additem odmien_dwu_rasy {%lower( @odmien_mian)};#additem odmien_dwu_rasyB {%lower( @odmien_bier)}}};#sh --> Dodano wyjatek M-B, Mianownik: @odmien_mian, Biernik: @odmien_bier} {Nie:}}} ""
#MENU {Dodaj nieodmienialne imie} {#va odmien_mian {};#pr odmien_mian {"Dodajesz nieomienialne we wszystkich przypadkach imie rodzaju zenskiego, np. Ysar lub Auglenn: "};#if (@odmien_mian) {#additem odmien_nieodmienialne {%lower( @odmien_mian)};#sh --> Dodano nieodmienialne imie %proper( @odmien_mian)}} ""
#MENU {Dodaj wyjatek Mianownik - Narzednik} {#va odmien_mian {};#pr odmien_mian {"Dodajesz wyjatek Mian-Bier. Mianownik (kto, co na lokacji stoi?): "};#if (@odmien_mian) {#va odmien_bier {@odmien_mn(@odmien_mian)};#pr odmien_bier {Wyjatek M-B. Mianownik: @odmien_mian, Narzednik (przed kim, czym zaslonic?):};#yesno {Mianownik - @odmien_mian, Narzednik - @odmien_bier, dodac jako wyjatek?} {Tak: #addkey odmien_odmianaMN {%lower( @odmien_mian)} {%lower( @odmien_bier)};#sh --> Dodano wyjatek M-N, Mianownik: @odmien_mian, Narzednik: @odmien_bier} {Nie:}}} ""
#MENU {Dodaj wyjatek Mianownik - Celownik} {#va odmien_mian {};#pr odmien_mian {"Dodajesz wyjatek Mian-Cel. Mianownik (kto, co na lokacji stoi?): "};#if (@odmien_mian) {#va odmien_bier {@odmien_mc(@odmien_mian)};#pr odmien_bier {Wyjatek M-C. Mianownik: @odmien_mian, Celownik (komu, czemu daje monety?):};#yesno {Mianownik - @odmien_mian, Celownik - @odmien_bier, dodac jako wyjatek?} {Tak: #addkey odmien_odmianaMC {%lower( @odmien_mian)} {%lower( @odmien_bier)};#sh --> Dodano wyjatek M-C, Mianownik: @odmien_mian, Celownik: @odmien_bier} {Nie:}}} ""
#MENU {Dodaj wyjatek Mianownik - Dopelniacz} {#va odmien_mian {};#pr odmien_mian {"Dodajesz wyjatek Mian-Dop. Mianownik (kto, co na lokacji stoi?): "};#if (@odmien_mian) {#va odmien_bier {@odmien_mc(@odmien_mian)};#pr odmien_bier {Wyjatek M-D. Mianownik: @odmien_mian, Dopelniacz (kogo, czego obrone przelamuje?):};#yesno {Mianownik - @odmien_mian, Dopelniacz - @odmien_bier, dodac jako wyjatek?} {Tak: #addkey odmien_odmianaMD {%lower( @odmien_mian)} {%lower( @odmien_bier)};#sh --> Dodano wyjatek M-D, Mianownik: @odmien_mian, Dopelniacz: @odmien_bier} {Nie:}}} ""
#CLASS 0
#CLASS {CerdinLib|Druzyna}
#ALIAS kd_przelec_druzyne {#class {CerdinLib|Druzyna|Druzyna_obj};#forall @kd_druzyna {#if ((@odmien_mb(%i))&(!%defined( kd_obj_%replace( %i, " ", "_")))) {#addkey kd_obj_%replace( %i, " ", "_") komenda {@odmien_mb(%i)}}};#class 0}
#VAR kd_druzyna {irwin|terum|drachen}
#VAR kd_backup {irwin(komendairwinanum6wrog0cnum2)terum(komendaterumanum7wrog0cnum1)drachen(komendadrachenanum5wrog0cnum3)}
#VAR kd_druzyna_temp {Irwin, Terum i Drachen}
#TRIGGER {Od teraz jej sklad stanowicie ty{,| i }(*).$} {#va kd_druzyna_temp {%1};kd_druzyna = %lower(%replace(%replace({@kd_druzyna_temp},", ","|")," i ","|"));kd_przelec_druzyne}
#TRIGGER {{Porzucasz swoja druzyne.|Nie jestes w zadnej druzynie.|Porzucasz druzyne, ktorej przewodzilas.|Porzucasz druzyne, ktorej przewodziles.}} {#va kd_druzyna {KD_BLANK};#delclass CerdinLib|Druzyna|Druzyna_obj}
#TRIGGER {Druzyne prowadzi (*), zas ty jestes jej jedynym czlonkiem.} {#va kd_druzyna %lower(%1);kd_przelec_druzyne}
#TRIGGER {Druzyne prowadzi (*) i oprocz ciebie {sa|jest} w niej jeszcze{|:} (*).} {#va kd_druzyna_temp {%2};kd_druzyna = %concat(%lower(%1),"|",%lower(%replace(%replace({@kd_druzyna_temp},", ","|")," i ","|")));kd_przelec_druzyne}
#TRIGGER {Przewodzisz druzynie, w ktorej oprocz ciebie jest jeszcze (*).$} {#va kd_druzyna_temp {%1};kd_druzyna = %lower(%replace(%replace({@kd_druzyna_temp},", ","|")," i ","|"));kd_przelec_druzyne}
#TRIGGER {zmusza cie do opuszczenia druzyny.} {#va kd_druzyna {KD_BLANK};#delclass CerdinLib|Druzyna|Druzyna_obj;#SA %ansi( 13) WYRZUCONO CIE Z DRUZYNY !!!}
#ALARM {*2:30:00} {#if (%ctime) {#va kd_backup {};#pri {#forall @kd_druzyna {#addkey kd_backup %replace( %i, " ", "_") @{kd_obj_%replace( %i, " ", "_")}}};#DELCLASS CerdinLib|Druzyna|Druzyna_obj;#pri {#forall @kd_druzyna {#va kd_obj_%replace( %i, " ", "_") %db( @kd_backup, %replace( %i, " ", "_")) _nodef {CerdinLib|Druzyna|Druzyna_obj}}}}}
#CLASS 0
#CLASS {CerdinLib|Druzyna|Druzyna_obj}
#VAR kd_obj_irwin {komendairwinanum5wrog0cnum3}
#VAR kd_obj_terum {komendaterumanum5wrog0cnum3}
#VAR kd_obj_drachen {komendadrachenanum1wrog0cnum7}
#CLASS 0
#CLASS {CerdinLib|Opcje}
#ALIAS op_window {#if (!%window(Opcje)) {#makewindow Opcje open "scrolling=no|floating=yes|width="75"c|height="30"c|top=-"43"c|left=10c|title=Opcje"};:Opcje:#clr;#loop 1,29 {#window Opcje %ansi(0)%repeat(".",75)}}
#ALIAS op_menu1 {op_x = 2;op_window;#forall @op_menu1_list {#if (%defined( menu1_%i)) {op_menu_rysuj;#if (%i=%1) {op_menu_zaznacz};op_x = %eval( @op_x+%len( %i)+2)}};#if (%defined( menu1_%-1)) {#noop %exec( menu1_%-1)}}
#ALIAS op_menu_rysuj {#mxp <Dest Opcje x=%eval(@op_x+1) y=2><send "op_menu1 %i" "Opcje dla: %proper(%i)">%proper(%i)</send></Dest>}
#ALIAS op_menu_zaznacz {#mxp <Dest Opcje x=@op_x y=1>%repeat("-",%eval(%len(%i)+2))</Dest>;#mxp <Dest Opcje x=@op_x y=3>%repeat("-",%eval(%len(%i)+2))</Dest>}
#ALIAS op_mxpk_put {#pr %1 "Zmien "%lower(%-4)". Obowiazuje szesnastkowy format #RRGGBB. Pamietaj o # przed liczba.";#mxp @op_mxpk(%1,%2,%3,%-4)}
#ALIAS op_mxps_put {#pr %1 "Nowy "%lower(%-4)".";#mxp @op_mxps(%1,%2,%3,%-4)}
#ALIAS op_mxpt_put {#pr %1 "Zmien "%lower(%-4)". Obowiazuje szesnastkowy format #RRGGBB. Pamietaj o # przed liczba.";#mxp @op_mxpt(%1,%2,%3,%-4)}
#ALIAS op_mxpi_put {#pr %1 "Zmien "%lower(%-4)".";#mxp @op_mxpi(%1,%2,%3,%-4)}
#ALIAS op_mxpTN_put {#if (@%1) {#va %1 0} {#va %1 1};#mxp @op_mxpTN(%1,%2,%3,%-4)}
#ALIAS op_mxpkd_put {#pr op_kd_temp.%1 "Zmien kolor dla "%lower(%-4)". Obowiazuje szesnastkowy format #RRGGBB. Pamietaj o # przed liczba.";#mxp @op_mxpkd(%1,%2,%3,%-4);op_kd_zmiany}
#ALIAS op_mxpcl_put {#if (%trigger(%1)) {#t- %1} {#t+ %1};#mxp @op_mxpcl(%1,%2,%3,%-4)}
#ALIAS op_mxp_hash_put {#if (%trigger(Kondycja_opisowa)) {#t- Kondycja_opisowa;#t+ Kondycja_hash;#t- Kondycja_druzyny_opisowa;#t+ Kondycja_druzyny_hash} {#t+ Kondycja_opisowa;#t- Kondycja_hash;#t+ Kondycja_druzyny_opisowa;#t- Kondycja_druzyny_hash};#mxp @op_mxp_hash(%1,%2,%-3)}
#ALIAS op_mxpVS_put {#noop @%1( 1);#mxp @op_mxpVS(%1,%2,%3,%-4)}
#ALIAS op_mxpkdb_put {#pr %1.%2 "Zmien kolor dla "%lower( %-5)". Obowiazuje szesnastkowy format #RRGGBB. Pamietaj o # przed liczba.";#mxp @op_mxpkdb(%1,%2,%3,%4,%-5);#if (%defined( %left( %1, 6)zmiany)) {%left( %1, 6)zmiany}}
#VAR op_menu1_list {kondycja|statusy|ocen|postacie}
#VAR op_x {37}
#VAR op_mxpk {<DEST Opcje x=%2 y=%3><send "op_mxpk_put %1 %2 %3 %4" "Zmien kolor"><color @%1 "#000000">@%1</color></send> %4</DEST>}
#VAR op_mxps {<DEST Opcje x=%2 y=%3><send "op_mxps_put %1 %2 %3 %4" "Zmien symbol"><color "#C2C2C2" "#000000">@%1</color></send> %4</DEST>}
#VAR op_mxpt {<DEST Opcje x=%2 y=%3><send "op_mxpt_put %1 %2 %3 %4" "Zmien kolor tla"><color "#C2C2C2" @%1>@%1</color></send> %4</DEST>}
#VAR op_mxpi {<DEST Opcje x=%2 y=%3>%repeat(" ",4-%len(@%1))<send "op_mxpi_put %1 %2 %3 %4" "Zmien wartosc"><color "#C2C2C2" "#000000">@%1</color></send> %4</DEST>}
#VAR op_mxpTN {<DEST Opcje x=%2 y=%3><send "op_mxpTN_put %1 %2 %3 %4" "Zmien TAK - NIE"><color "#C2C2C2" "#000000">%if(@%1,TAK,NIE)</color></send> %4</DEST>}
#VAR op_mxpkd {<DEST Opcje x=%2 y=%3><send "op_mxpkd_put %1 %2 %3 %4" "Zmien kolor"><color @op_kd_temp.%1 "#000000">@op_kd_temp.%1</color></send><color @op_kd_temp.%1 "#000000"> %4</color></DEST>}
#VAR op_mxpcl {<DEST Opcje x=%2 y=%3><send "op_mxpcl_put %1 %2 %3 %4" "Wlacz - Wylacz"><color "#C2C2C2" "#000000">%if(%trigger(%1),Wlacz ,Wylacz)</color></send> %4</DEST>}
#VAR op_mxp_hash {<DEST Opcje x=%1 y=%2>%if(%trigger(Kondycja_opisowa)," ")<send "op_mxp_hash_put %1 %2 %3" "Wlacz - Wylacz"><color "#C2C2C2" "#000000">%if(%trigger(Kondycja_opisowa),Wlacz ,Wylacz)</color></send> %3</DEST>}
#VAR op_mxpVS {<DEST Opcje x=%2 y=%3><send "op_mxpVS_put %1 %2 %3 %4" "Zmien TAK - NIE"><color "#C2C2C2" "#000000">%if( @%1( ), TAK, NIE)</color></send> %4</DEST>}
#VAR op_mxpkdb {<DEST Opcje x=%3 y=%4><send "op_mxpkdb_put %1 %2 %3 %4" "Zmien kolor">%ansi( 0)<color @%1.%2 "#000000">@%1.%2</color></send><color #339933 "#000000"> %5</color></DEST>}
#VAR op_mxpRTN {<DEST Opcje x=%2 y=%3><send "#if (@%1) {#va %1 0} {#va %1 1}; op_menu1 %5" "Zmien TAK - NIE"><color "#C2C2C2" "#000000">%if( @%1, TAK, NIE)</color></send> %4</DEST>}
#BUTTON 42 {O} {op_menu1 statusy} {} {} {} {} {} {Size} {14} {32} {Pos} {1} {1314} {48} {} {} {} "" {Explore|Inset} {Inne opcje} {lp_forma} {4}
#CLASS 0
#CLASS {CerdinLib|Pomoc}
#ALIAS -? {#sh "";#sh +--> Aliasy z zainstalowanych skryptow:;#sh "+------------------------------------";#sh "";#forall @pomoc_alias_list {#if (%defined( pomoc_%i)) {#MXP %replace( @{pomoc_%i}, ";", %crlf);#sh ""}};#sh "+-------------------------------------";#sh "+--> Bindy z zainstalowanych skryptow:";#sh "+-------------------------------------";#sh "";#forall @pomoc_bind_list {#if (%defined( pomocb_%i)) {#MXP %replace( @{pomocb_%i}, ";", %crlf);#sh ""}};#sh +----------------> Koniec listy bindow.}
#VAR pomoc_alias_list {ziola|ocena|enemy|podziel}
#VAR pomoc_bind_list {walka|buttonowe|chodzenie|f7|kierunki}
#VAR pomoc_ziola {   -ziolo         - wyszukaj ziolo w bazie;   -addziolo      - dodaj ziolo do bazy}
#VAR pomoc_ocena {   -szukaj        - otworz okno wyszukiwania w bazie ekwipunku;   -eq            - ocen zalozone zbroje i dobyte bronie, poczym pokaz ich stan w oknie;                    LUB wylacz okno jezeli jest wlaczone}
#VAR pomoc_enemy {   -wrog          - wyszukaj osobe w bazie wrogow;   -addwrog       - dodaj osobe lub gildie do bazy wrogow;   -delwrog       - usun osobe lub gildie z bazy wrogow;   -pr            - sprawdz przedstawionych oraz zapamietanych i stworz odpowiednie suby imienne}
#VAR pomoc_podziel {   -split         - rozpocznij/kontynuuj liczenie monet lub ich rozdzielanie}
#VAR pomocb_walka { F1 lub * - z cel ataku                F4 - wyjdz zza zaslony;   F2     - k wszystkich                    przelam obrone celu ataku;   F3     - k druzyny                       z cel ataku;   Alt-1  - wl/wyl speca               F5 - wesprzyj;   Alt-2  - opcje grupa 1/2/4}
#VAR pomocb_buttonowe {   Alt-`              - Wl/wyl bindy 1-6 - *nr*;   2x *nr*            - z wroga z buttona o numerze *nr*;                        %char( 40)wskaz i rozkaz zaatakowac jezeli tak ustawiono%char( 41);      *nr* + spacja   - zaslon czlonka druzyny z buttona o numerze *nr*;                      %char( 40)rozkaz wszystkim zaslonic jezeli tak ustawiono%char( 41);           + spacja   - p. zaslaniac;      *nr* + [qwerty] - zaslon przez wrogiem z buttona o numerze *nr*;           + [qwerty] - p. zaslaniac;      *nr* + /        - wykonaj komende ustawiona na rozecie komend na;                        wrogu z buttona o numerze *nr*;             /        - jak wyzej, na ostatnio widzianym wrogu z bazy wrogow}
#VAR pomocb_chodzenie {   F7  - chodzenie/przemykanie/przemykanie z druzyna;   F8  - sprawdzanie kierunkow kompasem ON-OFF;   F9  - uzywaj qwe asd zxc jak klawiatury numerycznej ON-OFF}
#VAR pomocb_f7 {   `   - wykonaj ostatni dynamiczny bind}
#VAR pomocb_kierunki {   0   - [numpad] pierwsze niestandardowe wyjscie z lokacji}
#CLASS 0
#CLASS {CerdinLib|FormatText}
#VAR skroc_przym {%if( %1<2, ,%if( !"%3", %concat( %left( %2, %eval( %1-1)), " "), %if( %1<4, %concat( %left( %2, 1), " "), %concat( %left( %2, %eval( ((%1-2)/2)+%mod( %1, 2))), " ", %left( %3, %eval( (%1-2)/2)), " "))))}
#VAR skroc_nazwe {%if( %numwords( %1)>3, %1, %if( %len( %1)<=%2, %1, %case( %numwords( %1), %left( %1, %2), %if( %eval( %2-%min( %len( %word( %1, 2)), 5))<=1, %left( %word( %1, 2), %2), %if( (%eval( %2-%len( %word( %1, 2)))<4)&(%eval( %2-10)>=4), @skroc_przym(%eval(%2-10),%word(%1,1))%left( %word( %1, 2), 10), %if( (%eval( %2-%len( %word( %1, 2)))<2)&(%eval( %2-5)>=2), @skroc_przym(%eval(%2-5),%word(%1,1))%left( %word( %1, 2), 5), @skroc_przym(%eval(%2-%len(%word(%1,2))),%word(%1,1))%word( %1, 2)))), %if( %eval( %2-%min( %len( %word( %1, 3)), 5))<=1, %left( %word( %1, 3), %2), %if( (%eval( %2-%len( %word( %1, 3)))<6)&(%eval( %2-10)>=6), @skroc_przym(%eval(%2-10),%word(%1,1),%word(%1,2))%left( %word( %1, 3), 10), %if( (%eval( %2-%len( %word( %1, 3)))<4)&(%eval( %2-5)>=2), @skroc_przym(%eval(%2-5),%word(%1,1),%word(%1,2))%left( %word( %1, 3), 5), @skroc_przym(%eval(%2-%len(%word(%1,3))),%word(%1,1),%word(%1,2))%word( %1, 3)))))))}
#VAR miedz_na_monety {%ansi( 15)%if( %eval( %1/24000), %concat( %eval( %1/24000), "mt "))%ansi( 14)%if( %eval( %mod( %1, 24000)/240), %concat( %eval( %mod( %1, 24000)/240), "zl "))%ansi( 7)%if( %eval( %mod( %mod( %1, 24000), 240)/12), %concat( %eval( %mod( %mod( %1, 24000), 240)/12), "sr "))%ansi( 6)%if( %mod( %mod( %mod( %1, 24000), 240), 12), %concat( %mod( %mod( %mod( %1, 24000), 240), 12), "md "))%ansi( reset)}
#VAR format_center {%repeat( " ", %3)%repeat( " ", %eval( ((%number( %2)-%len( '%1'))/2)+%mod( %number( %2)-%len( '%1'), 2)))%literal( %1)%repeat( " ", %eval( (%number( %2)-%len( '%1'))/2))%repeat( " ", %4)}
#VAR format_offcenter {%repeat( " ", %eval( (%number( %2)-%len( '%1')-%number( %3))/2))%literal( %1)}
#VAR conv_coin2md {@conv_coin2md2(%1, 1, 0)}
#VAR conv_coin2md2 {%if( %numitems( %1)<%2, %3, @conv_coin2md2(%1,%eval(%2+1),%eval(%3+%word(%item(%1,%2),1)*%if(%begins(%word(%item(%1,%2),2),miedzian), 1, %if(%begins(%word(%item(%1,%2),2),srebrn),12,%if(%begins(%word(%item(%1,%2),2),zlot),240,%if(%begins(%word(%item(%1,%2),2),mithryl), 24000,0)))))))}
#VAR mxp_send {<send "%1" "%3">%2</send>}
#VAR mxp_send_in {<<send '"%1"' '"%3"'>>%2<</send>>}
#VAR rodzaj_z_mianownika {%if( %ends( %word( %1, 1), a), 2, %if( %ismember( %rightback( %word( %1, 1), 1), e|o), 3, 1))}
#VAR text_just2 {%if( %5>%6, %if( %7, %ansi( 4))%trimright( %replace( "%4", "", " ")), @text_just2(%1,%2,"%3",%concat("%4",%word("%3",%5),%repeat(" ",%eval(%2+%if(%5>%1,1,0))),""),[%eval(%5+1)],%6,%7))}
#VAR text_just {%repeat( " ", %1)@text_just2([%eval( (%numwords( "%-3")-1))-%mod( %eval( %number( %2)-%number( %1)-%len( "%3")), (%numwords( "%-3")-1))],[%eval( %eval( %number( %2)-%number( %1)-%len( "%3"))/(%numwords( "%3")-1))],"%3","",1,[%numwords("%3")],[%if(%eval( %number( %2)-%number( %1)-%len( "%-3"))<0,1,0)])}
#VAR text_break_point {%if( %copy( "%1", %2, 1)=" " or %2<0, %2, @text_break_point("%1",[%eval(%2-1)]))}
#VAR text_break2 {%if( %3>=%len( "%2"), "%2", @text_break2(%1,@replace_char("%2",@text_break_point("%2",%3),"|"),%eval( @text_break_point("%2",%3)+%1)))}
#VAR text_break {@text_break2(%1,"%2",%1)}
#VAR replace_char {%delete( %insert( %3, "%1", %2), %2+1, 1)}
#CLASS 0
#CLASS {CerdinLib|Ustaw_dane}
#ALIAS ustaw_dane {#showp --> Ustawiam nieustawione zmienne danych...;#CLASS {Dane|.liczniki};#if (!%defined( lz_all_p)) {#VAR lz_all_p {}};#if (!%defined( lz_me_p)) {#VAR lz_me_p {}};#if (!%defined( lz_all)) {#VAR lz_all {}};#if (!%defined( lz_me)) {#VAR lz_me {}};#if (!%defined( lz_all_h)) {#VAR lz_all_h {}};#if (!%defined( lz_me_h)) {#VAR lz_me_h {}};#if (!%defined( lpr_db)) {#VAR lpr_db {}};#if (!%defined( lp_nazwa)) {#VAR lp_nazwa {}};#if (!%defined( lp_czas)) {#VAR lp_czas {}};#if (!%defined( lpa_db)) {#VAR lpa_db {}};#if (!%defined( lpa_maxtd)) {#VAR lpa_maxtd {90}};#if (!%defined( lpa_pokaz_liste)) {#VAR lpa_pokaz_liste {0}};#if (!%defined( lpw_db)) {#ADDKEY lpw_db {maxx=84|maxy=30|ly=9|x=80|y=10}};#if (!%defined( lpo_scale)) {#VAR lpo_scale {}};#if (!%defined( lpo_sczesc)) {#VAR lpo_sczesc {}};#if (!%defined( lpo_kzabici)) {#VAR lpo_kzabici {~#C2C2C0}};#if (!%defined( lpo_knzabici)) {#VAR lpo_knzabici {~#6BFF40}};#if (!%defined( lpo_sbrak)) {#VAR lpo_sbrak {x}};#if (!%defined( lpo_kbrak)) {#VAR lpo_kbrak {~#AA0000}};#if (!%defined( lpo_texp)) {#VAR lpo_texp {~#000000}};#if (!%defined( lpo_tforma)) {#VAR lpo_tforma {~#595958}};#if (!%defined( lpo_kkom)) {#VAR lpo_kkom {~#FFFF00}};#if (!%defined( lpo_kkom_nzabici)) {#VAR lpo_kkom_nzabici {~#FFA803}};#if (!%defined( lpo_slpw_w2)) {#VAR lpo_slpw_w2 {!}};#if (!%defined( lpo_kicon)) {#VAR lpo_kicon {~#88CC88}};#if (!%defined( lpo_sskom)) {#VAR lpo_sskom {k}};#if (!%defined( lpo_kskom)) {#VAR lpo_kskom {~#00AAFF}};#if (!%defined( lpw_maxx)) {#VAR lpw_maxx {80}};#if (!%defined( lpw_maxy)) {#VAR lpw_maxy {30}};#if (!%defined( lp_db)) {#ADDKEY lp_db {opis=zadne|num=0|kiedy=00:00|forma=0|forma_data=2016-07-21 09:33:06|ile=0|pokaz=0}};#if (!%defined( lz_spec_2w)) {#VAR lz_spec_2w {}};#if (!%defined( lz_spec_3w)) {#VAR lz_spec_3w {}};#if (!%defined( lz_spec_4w)) {#VAR lz_spec_4w {}};#CLASS 0;#CLASS {Dane|.przedmioty};#if (!%defined( ocen_zbroje_waga)) {#VAR ocen_zbroje_waga {}};#if (!%defined( ocen_zbroje_obj)) {#VAR ocen_zbroje_obj {}};#if (!%defined( ocen_zbroje_wartosc)) {#VAR ocen_zbroje_wartosc {}};#if (!%defined( ocen_zbroje_typ)) {#VAR ocen_zbroje_typ {}};#if (!%defined( ocen_zbroje_chroni)) {#VAR ocen_zbroje_chroni {}};#if (!%defined( ocen_pochodzenia)) {#VAR ocen_pochodzenia {}};#if (!%defined( ocen_zbroje_pochodzenie)) {#VAR ocen_zbroje_pochodzenie {}};#if (!%defined( ocen_zbroje_komentarz)) {#VAR ocen_zbroje_komentarz {}};#if (!%defined( ocen_bron_waga)) {#VAR ocen_bron_waga {}};#if (!%defined( ocen_bron_obj)) {#VAR ocen_bron_obj {}};#if (!%defined( ocen_bron_wartosc)) {#VAR ocen_bron_wartosc {}};#if (!%defined( ocen_bron_typ)) {#VAR ocen_bron_typ {}};#if (!%defined( ocen_bron_rany)) {#VAR ocen_bron_rany {}};#if (!%defined( ocen_bron_reka)) {#VAR ocen_bron_reka {}};#if (!%defined( ocen_bron_magia)) {#VAR ocen_bron_magia {}};#if (!%defined( ocen_inne_waga)) {#VAR ocen_inne_waga {}};#if (!%defined( ocen_inne_obj)) {#VAR ocen_inne_obj {}};#if (!%defined( ocen_inne_wartosc)) {#VAR ocen_inne_wartosc {}};#if (!%defined( ocen_pojemnik_waga)) {#VAR ocen_pojemnik_waga {}};#if (!%defined( ocen_pojemnik_obj)) {#VAR ocen_pojemnik_obj {}};#if (!%defined( ocen_pojemnik_wartosc)) {#VAR ocen_pojemnik_wartosc {}};#if (!%defined( ocen_pojemnik_typ)) {#VAR ocen_pojemnik_typ {}};#if (!%defined( ocen_bron_srebro)) {#VAR ocen_bron_srebro {}};#if (!%defined( ocen_ekw_waga)) {#VAR ocen_ekw_waga {}};#if (!%defined( ocen_ekw_obj)) {#VAR ocen_ekw_obj {}};#if (!%defined( ocen_ekw_wartosc)) {#VAR ocen_ekw_wartosc {}};#if (!%defined( ocen_bron_pochodzenie)) {#VAR ocen_bron_pochodzenie {}};#if (!%defined( ocen_zamowienie_3)) {#VAR ocen_zamowienie_3 {}};#if (!%defined( ocen_zamowienie_0)) {#VAR ocen_zamowienie_0 {}};#if (!%defined( ocen_aukcja)) {#VAR ocen_aukcja {}};#if (!%defined( ocen_sprzedaz_3)) {#VAR ocen_sprzedaz_3 {}};#if (!%defined( ocen_sprzedaz_0)) {#VAR ocen_sprzedaz_0 {}};#if (!%defined( ocen_sprzedaz_2)) {#VAR ocen_sprzedaz_2 {}};#if (!%defined( ocen_sprzedaz_1)) {#VAR ocen_sprzedaz_1 {}};#if (!%defined( ocen_bron_komentarz)) {#VAR ocen_bron_komentarz {}};#if (!%defined( ocen_sprzedaz_4)) {#VAR ocen_sprzedaz_4 {}};#if (!%defined( ocen_tarcze_waga)) {#VAR ocen_tarcze_waga {}};#if (!%defined( ocen_tarcze_obj)) {#VAR ocen_tarcze_obj {}};#if (!%defined( ocen_tarcze_wartosc)) {#VAR ocen_tarcze_wartosc {}};#if (!%defined( ocen_tarcze_pochodzenie)) {#VAR ocen_tarcze_pochodzenie {}};#if (!%defined( ocen_puklerz_waga)) {#VAR ocen_puklerz_waga {}};#if (!%defined( ocen_puklerz_obj)) {#VAR ocen_puklerz_obj {}};#if (!%defined( ocen_puklerz_wartosc)) {#VAR ocen_puklerz_wartosc {}};#if (!%defined( ocen_puklerz_pochodzenie)) {#VAR ocen_puklerz_pochodzenie {}};#if (!%defined( ocen_ubranie_waga)) {#VAR ocen_ubranie_waga {}};#if (!%defined( ocen_ubranie_obj)) {#VAR ocen_ubranie_obj {}};#if (!%defined( ocen_ubranie_wartosc)) {#VAR ocen_ubranie_wartosc {}};#if (!%defined( ocen_ubranie_typ)) {#VAR ocen_ubranie_typ {}};#if (!%defined( ocen_ubranie_pochodzenie)) {#VAR ocen_ubranie_pochodzenie {}};#if (!%defined( ocen_inne_pochodzenie)) {#VAR ocen_inne_pochodzenie {}};#if (!%defined( ocen_inne_komentarz)) {#VAR ocen_inne_komentarz {}};#if (!%defined( ocen_zamowienie_2)) {#VAR ocen_zamowienie_2 {}};#if (!%defined( ocen_zamowienie_1)) {#VAR ocen_zamowienie_1 {}};#if (!%defined( ocen_zamowienie_4)) {#VAR ocen_zamowienie_4 {}};#if (!%defined( ocen_bron_long)) {#VAR ocen_bron_long {}};#if (!%defined( ocen_zbroje_long)) {#VAR ocen_zbroje_long {}};#if (!%defined( ocen_inne_long)) {#VAR ocen_inne_long {}};#if (!%defined( ocen_pojemnik_long)) {#VAR ocen_pojemnik_long {}};#if (!%defined( ocen_ubranie_long)) {#VAR ocen_ubranie_long {}};#if (!%defined( ocen_ekw_long)) {#VAR ocen_ekw_long {}};#if (!%defined( ocen_tarcze_long)) {#VAR ocen_tarcze_long {}};#CLASS 0;#CLASS {Dane|.ziola};#if (!%defined( zi_baza3w)) {#VAR zi_baza3w {@UD_zi_baza3w}};#if (!%defined( zi_baza2w)) {#VAR zi_baza2w {@UD_zi_baza2w}};#if (!%defined( zi_baza)) {#VAR zi_baza {@UD_zi_baza}};#CLASS 0;#CLASS {Dane|.postacie};#if (!%defined( en_i2o)) {#VAR en_i2o {}};#if (!%defined( en_sz)) {#VAR en_sz {}};#if (!%defined( en_kom)) {#VAR en_kom {}};#if (!%defined( en_title)) {#VAR en_title {}};#if (!%defined( eng_sz)) {#VAR eng_sz {@UD_eng_sz}};#if (!%defined( eng_nalezy)) {#ADDKEY eng_nalezy {sojusznicy=VR|wrogowie=MC}};#if (!%defined( eng_kom)) {#VAR eng_kom {}};#CLASS 0;#CLASS {Dane|Odmiany};#if (!%defined( odmien_odmianaMN)) {#VAR odmien_odmianaMN {@UD_odmien_odmianaMN}};#if (!%defined( odmien_odmianaMD)) {#VAR odmien_odmianaMD {@UD_odmien_odmianaMD}};#if (!%defined( odmien_odmianaMC)) {#VAR odmien_odmianaMC {@UD_odmien_odmianaMC}};#if (!%defined( odmien_nieodmienialne)) {#VAR odmien_nieodmienialne {@UD_odmien_nieodmienialne}};#if (!%defined( odmien_dwu_rasy)) {#VAR odmien_dwu_rasy {@UD_odmien_dwu_rasy}};#if (!%defined( odmien_dwu_rasyB)) {#VAR odmien_dwu_rasyB {@UD_odmien_dwu_rasyB}};#if (!%defined( odmien_odmianapBM)) {#VAR odmien_odmianapBM {@UD_odmien_odmianapBM}};#if (!%defined( odmien_jakrzecz)) {#VAR odmien_jakrzecz {@UD_odmien_jakrzecz}};#if (!%defined( odmien_wyjatekMB)) {#VAR odmien_wyjatekMB {@UD_odmien_wyjatekMB}};#if (!%defined( odmien_wyjatekBM)) {#VAR odmien_wyjatekBM {@UD_odmien_wyjatekBM}};#CLASS 0;#sh --> Ok.;#if (%defined( zi_sortbaza)) {#showp --> Sortuje ziola..;zi_sortbaza;#sh --> Ok.};#sh --> Zakonczono. Pamietaj o 'en_fixall' po zalogowaniu.}
#VAR UD_zi_baza3w {bial mal kwiat(nameGLOGuseprzezuj:+hp+zm|zjedz:zm)bial pachnac cebulnameCZOSNEKbial rozgalezion korzennameMANDRAGORAbial zmutowan grzyb(nameSTROCZEKusezjedz:truj)bialokwitnac drobn roslinnameROSICZKAbrazow duz owocnameKASZTANbrazow okragl nasion(nameKOLAuserozgryz:+conzmglod|zjedz:glod)brazowaw fosforyzujac mch(nameGRABIOROGusezjedz:mana)brudnobrazow cuchnac galaznameBAGNObrudnozolt fioletowozylkowan kwiat(nameLULEKuseprzezuj:truj)ciemn poskrecan klacz(namePIECIORNIKuserozgryz:+hp+zm)ciemn splatan korzen(nameCIEMIERNIKusezjedz:strdexcon+truj)ciemnoniebieski sluzowat grzybnamePIERSCIENIAKciemnozielon rozwart rozycz(nameROJNIKusezjedz:+alco)cienk ukwiecon galaznameKRUSZYNAczarn aromatyczn ziarennameBULAWINKAczarn blyszczac fasol(nameBOBOTRUTKAuserozgryz:truj)czarn lsniac jagodnamePOKRZYKczarn niewielk owocnameSLIWAczerwonaw duz liscnameRABARBARczterokanciast rozgalezion lodyg(nameDZIURAWIECuserozgryz:+hp)czteroplatkow zolt kwiatnameGLISTNIKdelikatn czerwon grzybnameMUCHOMOR CZERWONYdelikatn dlug lodygnameBOZE DRZEWKOdelikatn jasn grzybnameMUCHOMOR SROMOTNIKOWYdlug bial korzennameCHRZANdlug pachnac lodygnamePIOLUNdlug ususzon lodyg(nameKONOPIAusespal:resistnamagie)drobn bial kwiatnameRUMIANEKdrobn ukwiecon galaznameSWIETLIKduz bial kwiat(nameBIELUNusepowachaj:+con)duz fioletow kwiat(nameOSTROZECZKAusezjedz:picie)duz granatow jagod(nameSIEZYGRONuserozgryz:odtruj)duz pomarszczon liscnameTYTONdziwn zoltoszar nasion(nameKULCZYBAusezjedz:2xdis+truj)eliptyczn zaostrzon lisc(nameOGORECZNIKuseprzezuj:+odw)fioletow lejkowat kwiat(nameBARWINKAuseprzyloz:+hp)fioletow zwart kwiat(nameLAWENDAuseprzyloz:+hp+zm|zjedz:resist)galeziast szaroowlosion lodygnameBYLICA PIOLUNgalezist sinozielon lodygnameOSTROZENgrub brazow grzybnameBOROWIK KROLEWSKIgrub szaraw grzybnameBOROWIK SZATANSKIgrub walcowat klacz(namePOKRZYKusezjedz:spost)grub wygiet klacznameRDESTgrzyb such kapelusznameHUBKAjaskrawozolt drobn kwiat(nameSTULICHAusezjedz:truj)jasnobrazow ulistnion lodygnameNAWLOCjasnobrunatn popekan galaznameBEZjasnofioletow delikatn kwiat(nameSZAFRANusezjedz:+hp)jasnofioletow dlug kwiatnameZIMOWITjasnozielon nieowlosion lodygnameLULECZNICAjasnozielon sluzowat grzybnamePIERSCIENIAK GRYNSZPANOWYkanciast parzac lodyg(namePOKRZYWAusezjedz: +glod picie alko kac)kanciast rozgalezion lodyg(nameBYLICA POSPOLITAuseprzyloz zm)kolczast wysuszon roslin(nameOSETusehp)kremow owlosion kwiat(namePRZELOTusesproszkuj:zmmana)liliow lejkowat kwiat(nameKAKOLusezjedz:+glod+truj)lsniac czerwon owocnameDERENmal czarn owocnameJEZYNAmal czerwon kwiat(nameSERCE KAPITANAuseprzezuj:+hpdexint)mal czerwon owocnameMALINAmal fioletow owocnameJAGODAmal szorstk liscnameADANATmal zoltozielon szysznameCHMIELmazist bulwiast grzyb(nameCASURusezjedz:+str)miedzian sluzowat grzybnamePIERSCIENIAKmiedzianozielon fosforyzujac grzyb(nameMUCHOMORusezjedz:truj)niebiesk sluzowat grzybnamePIERSCIENIAKnieduz brazow grzybnameMASLAKniepozorn sinozielon roslinnameURZETniewielk brunatn koszycznameCZARNUSZKAniewielk czerwon owocnamePOZIOMKAniewielk fioletow kwiat(nameMAKOWNIKusezjedz:+hp)okazal pachnac kwiat(nameMAKusezjedz:dexspost)okraglaw aromatyczn lisc(nameMIETAuserozetrzyj:+hp+zm|powachaj:zm)oliwkowozielon gietk galaz(nameJEMIOLAusezjedz:constr)owlosion aromatyczn lisc(nameMELISAuse)pachnac jasnozielon liscnameKRASNODRZEWpachnac jasnozwielon liscnameKRASNODRZEWpowachaj:+picieglodpachnac snieznobial kwiatnameGRZYBIENpiekn czerwon kwiat(nameMAKusezjedz:+hp+zmdex)pierzast ogonkow lisc(namePOTOSLINusezjedz:strdiscon++truj)pomaranczow mal korzen(nameSZALEJusezjedz:truj)rozdet aromatyczn lodyg(nameSZCZWOLusezjedz:hp+trujdex)rozetkowat lancetowat lisc(nameBABKAuseprzyloz:+hp)rozgalezion owlosion lodygnameSTROICZKArozgalezion wzniesion lodyg(nameJASKIERuseprzezuj:oslepienie)rozgowat zoltozielon galaz(namePRZESLuseprzezuj:+con)rurkowat oliwkowobrunatn kwiatnameBYLICA CYTWAROWAsmukl jasnozielon lodygnameCENTURIAsmukl zielon lodygnameNOSTRZYKsoczyst karminow mch(nameDRATHuseprzezuj:+con)srebrzystoszar owlosion lisc(nameNAPARSTNICAusezjedz:zm)sredn kasztanowobrazow grzybnamePODGRZYBEKsredni kasztanowobrazow grzybnamePODGRZYBEKstrzalkowat aromatyczn lisc(nameSZCZAWuseprzezuj:+hp)szar aromatyczn korzen(nameLUBCZYKusezjedz:+glod)szar kolczast korzen(nameARALIAuseprzezuj:+resistzm+trujplucnica)szaraw pogiet klacznameRAUWOLFIAszarozielon gabczast porost(namePLUCNICAusesproszkuj:odtruj)szarozielon szorstk lisc(nameBOLDOAuse)szorstk ciemnozielon galaznamePOZIEWNIKsztywn rozgalezion korzen(nameLUKRECJAuseprzezuj:picie)sztywn smukl lodygnameLAKtward czerwon owocnameBOROWKAulistnion aromatyczn galaz(nameCZEREMCHAuseprzezuj:3xresist)wiotk drobn lodyznameKURZYSLADwiotk kwitnac galaz(nameJANOWIECusezjedz:picie)wonn dzwonkowat kwiat(nameKONWALIAusepowachaj:+piciepanika)wysok blekitn kwiat(nameCHABERusezjedz:picie)wysok zolt kwiat(nameSTARZECusezjedz:truj)wysoki czerwonaw grzybnameKOZLARZwysoki jasnobrazow grzybnameBOROWIKwzniesion owlosion lodygnameKOCIMIETKAwzniesion ukwiecon lodygnameTOJADzaostrzon podluzn lisc(nameSZALWIA LEKARSKAuse+hp)zdrewnial rozgalezion krzewin(nameMACZNICAuserozgryz:+hp)zdrewnial zwiniet rurk(nameKRUSZYNAusezjedz:+glod)zielon galezist ped(nameRDESTuseprzyloz:+hp)zielon kwitnac krzewin(nameHYZOPusezjedz:+glod)zielon lancetowat liscnameTRAWAzielon miesist kwiat(nameCIEMIEZYCAusezjedz:strdex)zielon postrzepion galaznameDRABIKzielon sluzowat grzybnamePIERSCIENIAKzielon trzeszczac galaz(nameSKRZYPusebrak)zlocist spor ziolnameCEBULAzlocistopomaranczow duz kwiat(nameARNIKAusezjedz:zm)zolt jaskraw kwiatnamePODBIALzolt jasn kwiat(nameDELIONAusezjedz:++zm)zolt rurkowat kwiat(nameWROTYCZusepowachaj:resist)zoltaw powyginan korzennameKRZYZOWNICAzoltoszar niepozorn korzen(nameRANOGuseprzezuj:odtruj+hp)macznistoowlosion szaraw roslin(nameKOMOSAuseprzezuj:+conzm|zjedz:+str)}
#VAR UD_zi_baza2w {aromatyczn klacznameTATARAKaromatyczn zielnameMACHORKAdlug lodyg(nameKONOPIEuseOchrona przed magia)grub klacznameOMANjasnopomaranczow kwiat(nameNAGIETEKuseprzyloz:+hp+zm)kosmatoowlosion kwiat(nameKASZTANOWIECusezjedz:zm)rozwiniet korzennameMARZANNAukwiecon lodygnameKRWAWNIKzlocistozolt kwiat(nameMNISZEKuseprzezuj:+hp+zm)}
#VAR UD_zi_baza {aromatyczne zieleMACHORKA [0m(przezuj: brak)biala pachnaca cebulkaCZOSNEK[0mbialokwitnaca drobna roslinkaROSICZKA [0m(brak)bialy maly kwiatGLOG [0m(przezuj: +hp, +zmeczenie, zjedz: zmeczenie)bialy zmutowany grzybekSTROCZEK [0m(zjedz: poison)brazowawy fosforyzujacy mechGRABIOROG [0m(zjedz: mana)brazowe okragle nasionkoKOLA [0m(rozgryz: +con, zmeczenie, +najedzienie, zjedz: +najedzenie)brazowy duzy owocKASZTAN [0m(brak)brudnobrazowa cuchnaca galazkaBAGNO [0m(brak)brudnozolty fioletowozylkowany kwiatLULEK [0m(przezuj: poison)ciemne poskrecane klaczePIECIORNIK [0m(przezuj: 2x(brak efektu), rozgryz: +hp, +zmeczenie )ciemnoniebieski sluzowaty grzybPIERSCIENIAK [0m(zjedz: brak efektu )ciemnozielona rozwarta rozyczkaROJNIK [0m(zjedz: +alco)ciemny splatany korzenCIEMIERNIK [0m(zjedz: str, dex, con, poison)czarna blyszczaca fasolkaBOBOTRUTKA [0m(rozgryz: (poison))czarne aromatyczne ziarenkoBULAWINKA [0m(brak)czarny niewielki owocSLIWA [0m(brak)czerwonawy duzy liscRABARBAR [0m(brak)czterokanciasta rozgaleziona lodygaDZIURAWIEC [0m(rozgryz: +hp)delikatna dluga lodygaBOZE DRZEWKO[0mdelikatny czerwony grzybMUCHOMOR CZERWONY[0mdluga lodygaKONOPIE[0m (ususzyc + spalic  ochrona przed magia)dluga ususzona lodygaKONOPIA [0m(spal: resist na magie)drobny bialy kwiatekRUMIANEK [0m(powachaj: brak efektu, przyloz: brak efektu)duza granatowa jagodaSIEZYGRON [0m(rozgryz: anty poison)duze pomarszczone liscieTYTON BAKUN[0mduzy bialy kwiatBIELUN [0m(powachaj: (+con))duzy fioletowy kwiatOSTROZECZKA [0m(zjedz: bardziej spragniony)dziwne zoltoszare nasionkoKULCZYBA [0m(zjedz: 2x dis, poison)eliptyczny zaostrzony liscOGORECZNIK [0m(przezuj: +odwaga)fioletowy lejkowaty kwiatBARWINKA [0m(przyloz: +hp)fioletowy zwarty kwiatostanLAWENDA[0m (przyloz: +hp, +zmeczenie, zjedz: odtrutka)galeziasta szaroowlosiona lodygaBYLICA PIOLUN[0mgalezista sinozielona lodygaOSTROZEN [0m(brak)grube walcowate klaczePOKRZYK [0m(zjedz: spostrzegawczosc)grube wygiete klaczeRDEST [0m(przezuj: brak efektu)gruby brazowy grzybBOROWIK KROLEWSKI[0mgruby szarawy grzybBOROWIK SZATANSKI[0mgrzybi suchy kapeluszHUBKA [0m(brak)jaskrawozolty drobny kwiatSTULICHA [0m(zjedz: poison)jasnobrazowa ulistniona lodygaNAWLOC[0mjasnobrunatna popekana galazkaBEZ [0m(przezuj: brak)jasnofioletowy delikatny kwiatSZAFRAN [0m(zjedz: +hp)jasnopomaranczowy kwiatNAGIETEK [0m(przyloz: +hp, +zmeczenie)jasnozielona nieowlosiona lodygaLULECZNICA[0mjasnozielony sluzowaty grzybPIERSCIENIAK GRYNSZPANOWY[0mkanciasta parzaca lodygaPOKRZYWA[0m (zjedz: +glod picie alko kac)kanciasta rozgaleziona lodygaBYLICA POSPOLITA[0m (przyloz: zmeczenie)kolczasta wysuszona roslinaOSET[0m (przezuj: hp)kosmatoowlosiony kwiatostanKASZTANOWIEC [0m(zjedz: zmeczenie)kremowy owlosiony kwiatPRZELOT [0m(sproszkuj: zmeczenie, mana, przezuj: brak efektu)liliowy lejkowaty kwiatKAKOL [0m(zjedz: +glod, poison)lsniacy czerwony owocDEREN [0m(przezuj: (brak efektu))maly czarny owocJEZYNA [0m(brak)maly czerwony kwiatSERCE KAPITANA [0m(przezuj: +hp, dex, int)maly czerwony owocMALINA [0m(brak)maly fioletowy owocJAGODA [0m(brak)maly szorstki liscADANAT[0mmazisty bulwiasty grzybCASUR [0m(zjedz: +str)miedzianozielony fosforyzujacy grzybMUCHOMOR [0m(zjedz: poison)nieduzy brazowy grzybMASLAK [0m(brak)niepozorna sinozielona roslinkaURZET [0m(brak)niewielki czerwony owocPOZIOMKA [0m(brak)niewielki fioletowy kwiatMAKOWNIK [0m(zjedz: +hp)okazaly pachnacy kwiatMAK [0m(zjedz: dex, spostrzegawczosc)okraglawy aromatyczny liscMIETA[0m (rozetrzyj: +hp, +zmeczenie, powachaj: zmeczenie, wetrzyj kac)oliwkowozielona gietka galazkaJEMIOLA [0m(zjedz: con, str)owlosiony aromatyczny liscMELISA[0m (przezuj/zjedz kondycja; ususzona  odtrutka)pachnacy jasnozielony liscKRASNODRZEW[0mpachnacy jasnozwielony lisc KRASNODRZEW[0m(powachaj: +napicie, +najedzenie)pachnacy snieznobialy kwiatGRZYBIEN [0m(brak)piekny czerwony kwiatMAK [0m(zjedz: +hp, +zmeczenie, zrecznosc)pierzasty ogonkowy liscPOTOSLIN [0m(zjedz: str, dis, con, poison (mocny))pomaranczowy maly korzenSZALEJ [0m(zjedz: poison)rozdeta aromatyczna lodygaSZCZWOL [0m(zjedz: hp, poison,  dex)rozetkowaty lancetowaty liscBABKA [0m(przyloz: +hp)rozgaleziona owlosiona lodygaSTROICZKA[0mrozgaleziona wzniesiona lodygaJASKIER [0m(przezuj: oslepienie, rozgryz: (brak efektu))rozgowata zoltozielona galazkaPRZESL [0m(przezuj: +con)rozwiniety korzenMARZANNA [0m(brak)rurkowaty oliwkowobrunatny kwiatBYLICA CYTWAROWA[0msmukla jasnozielona lodygaCENTURIA[0msmukla zielona lodygaNOSTRZYK[0msoczysty karminowy mechDRATH [0m(przezuj: +con)srebrzystoszary owlosiony liscNAPARSTNICA [0m(zjedz: zmeczenie)sredni kasztanowobrazowy grzybPODGRZYBEK[0mstrzalkowaty aromatyczny liscSZCZAW [0m(przezuj: +hp)szarawe pogiete klaczeRAUWOLFIA [0m(przezuj: brak efektu)szarozielony gabczasty porostPLUCNICA[0m (sproszkuj: anty poison, rozetrzec)szarozielony szorstki liscBOLDOA[0m (brak)szary aromatyczny korzenLUBCZYK [0m(zjedz: +glod)szary kolczasty korzenARALIA [0m(przezuj: +resist, zmeczenie, +poisonplucnica)szorstka ciemnozielona galazkaPOZIEWNIK[0msztywna smukla lodygaLAK[0msztywny rozgaleziony korzenLUKRECJA [0m(przezuj: bardziej spragniony, rozgryz: brak efektu)twardy czerwony owocBOROWKA [0m(brak)ulistniona aromatyczna galazkaCZEREMCHA [0m(przezuj: 3x resist)wiotka drobna lodyzkaKURZYSLAD[0mwiotka kwitnaca galazkaJANOWIEC [0m(zjedz: bardziej spragniony)wonny dzwonkowaty kwiatekKONWALIA [0m(powachaj: +napicie, panika)wysoki blekitny kwiatCHABER [0m(przezuj: (brak efektu), powachaj: (brak efektu), zjedz: bardziej spragniony)wysoki czerwonawy grzybKOZLARZ [0m(brak)wysoki jasnobrazowy grzybBOROWIK [0m(brak)wysoki zolty kwiatSTARZEC [0m(sproszkuj: brak efektu, zjedz: poison)wzniesiona owlosiona lodygaKOCIMIETKA[0mwzniesiona ukwiecona lodygaTOJAD[0mzdewniala zwinieta rurkaKRUSZYNA [0m(zjedz: najedzenie)zdrewniala rozgaleziona krzewinkaMACZNICA[0m (rozgryz: +hp, sprobowac ususzyc)zielona kwitnaca krzewinkaHYZOP [0m(zjedz: +glod, przyloz:brak)zielona trzeszczaca galazkaSKRZYP[0m (brak)zielone lancetowate liscieTRAWA[0mzielone postrzepione galazkiDRABIK [0m(brak)zielony galezisty pedRDEST [0m(przyloz: +hp)zielony miesisty kwiatCIEMIEZYCA [0m(zjedz: str, dex)zlociste spore zioloCEBULA [0m(brak)zlocistopomaranczowy duzy kwiatARNIKA [0m(zjedz: zmeczenie)zlocistozolty kwiatMNISZEK [0m(przezuj: +hp, +zmeczenie)zoltawy powyginany korzenKRZYZOWNICA [0m(przezuj: (brak efektu))zoltoszary niepozorny korzenRANOG [0m(przezuj: anty poison, +hp, brak efektu)zolty jaskrawy kwiatPODBIAL [0m(brak)zolty jasny kwiatDELIONA [0m(zjedz: szybka regeneracja zmeczenia)zolty rurkowaty kwiatWROTYCZ [0m(powachaj: resist)zaostrzony podluzny liscSZALWIA LEKARSKA[0m (zjedz +hp)macznistoowlosiona szarawa roslinaKOMOSA[0m (przezuj:+con  zm, zjedz: +str)}
#VAR UD_eng_sz {gildiakolorC0C0C0przyjacielekolorAA99CCsojusznicykolor3wrogowie(subuj1kolor6satak1)}
#VAR UD_odmien_odmianaMN {sluzsluzemszkieletszkieletemkrasnolud chaosukrasnoludem chaosuczarny orkczarnym orkiemsmoczy ogrsmoczym ogremozywieniecozywiencem}
#VAR UD_odmien_odmianaMD {}
#VAR UD_odmien_odmianaMC {}
#VAR UD_odmien_nieodmienialne {auglenn|insil|deli|ysar|mithari|shinru|isil|suavi|shiori|teo|luinarienn|thaess|solenay}
#VAR UD_odmien_dwu_rasy {czarny ork|krasnolud chaosu|smoczy ogr|kamienny gargulec|zywiolak ziemi|zywiolak ognia|zywiolak powietrza|zywiolak wody|smok chaosu|rycerz chaosu|demon chaosu|duch elfa|pracownik poczty}
#VAR UD_odmien_dwu_rasyB {czarnego orka|krasnoluda chaosu|smoczego ogr|kamiennego gargulec|zywiolaka ziemi|zywiolaka ognia|zywiolaka powietrza|zywiolaka wody|smoka chaosu|rycerza chaosu|demona chaosu|ducha elfa|pracownika poczty}
#VAR UD_odmien_odmianapBM {}
#VAR UD_odmien_jakrzecz {szkielet|sluz|postac}
#VAR UD_odmien_wyjatekMB {niziolekniziolkapiespsaniedzwiedzniedzwiedziaaveniloavenilabrygubrygamaromarasandrosandrapauliepauliegohohrunkhohrunkazetuzetanevarenevara}
#VAR UD_odmien_wyjatekBM {niziolkaniziolekpsapiesniedzwiedzianiedzwiedzavenilaavenilobrygabrygumaramarosandrasandropauliegopauliehohrunkahohrunknevaranevare}
#CLASS 0
#CLASS {CerdinLib|Time}
#VAR time_date {%if( %numitems( %1)=2, @time_date2(%item(%1,1),%item(%1,2)), @time_date2(%1,%2))}
#VAR time_date2 {%if( %2>=%eval( 31536000+%if( %mod( %eval( %1+1), 4), 86400, 0)), @time_date2(%eval(%1+1),%eval(%2-31536000-%if(%mod(%eval(%1+1),4),86400,0))), %1-@time_date3(%mod(%2,86400),%eval(%2/86400),1,%if(%mod(%1,4),0,1)))}
#VAR time_date3 {%if( %number( %2)>%eval( 365+%number( %4)) or %number( %2)<=%number( %item( %if( '%4'='1', 31|60|91|121|152|182|213|244|274|305|335|366, 31|59|90|120|151|181|212|243|273|304|334|365), %3)), @time_add0( %3)-@time_add0(%eval( %2-%number( %item( %if( '%4'='1', 0|31|60|91|121|152|182|213|244|274|305|335, 0|31|59|90|120|151|181|212|243|273|304|334), %3)))) @time_add0(%eval( %1/3600)):@time_add0(%eval( %mod( %1, 3600)/60)):@time_add0(%mod( %mod( %1, 3600), 60)), @time_date3(%1,%2,%eval(%3+1),%4))}
#VAR time_add0 {%if(%len(%1)=1,0)%1}
#VAR time_time {%eval( (%item( {0|31|59|90|120|151|181|212|243|273|304|334}, %copy( %1, 6, 2))+%copy( %1, 9, 2)+%if( (!%mod( %left( %1, 4), 4))&(%number( %copy( %1, 6, 2))>2), 1, 0))*86400+%copy( %1, 12, 2)*3600+%copy( %1, 15, 2)*60+%copy( %1, 18, 2))}
#VAR time_diff {%if( !"%2", 0, %eval( (((%left( %1, 4)-%left( %2, 4))*365+((%left( %1, 4))/4)-((%left( %2, 4))/4)+%item( {0|31|59|90|120|151|181|212|243|273|304|334}, %copy( %1, 6, 2))-%item( {0|31|59|90|120|151|181|212|243|273|304|334}, %copy( %2, 6, 2))+%copy( %1, 9, 2)-%copy( %2, 9, 2)+%if( (!%mod( %left( %1, 4), 4))&(%number( %copy( %1, 6, 2))>2), 0, -1)-%if( (!%mod( %left( %2, 4), 4))&(%number( %copy( %2, 6, 2))>2), 0, -1))*86400)+((%copy( %1, 12, 2)-%copy( %2, 12, 2))*3600+(%copy( %1, 15, 2)-%copy( %2, 15, 2))*60+%copy( %1, 18, 2)-%copy( %2, 18, 2))))}
#VAR time_format {%if((%number(%1)<0),BLAD DATY,%if(%number(%1)/86400,%concat(%eval(%number(%1)/86400),"d "))%if(%eval(%mod(%number(%1),86400)/3600) < 10,"0")%eval(%mod(%number(%1),86400)/3600)h %if(%eval(%mod(%mod(%number(%1),86400),3600)/60) < 10,"0")%eval(%mod(%mod(%number(%1),86400),3600)/60)m %if(%mod(%mod(%mod(%number(%1),86400),3600),60) < 10,"0")%mod(%mod(%mod(%number(%1),86400),3600),60)s)}
#VAR time_mczas {@time_format(@time_diff(%1,%2))}
#VAR time_pdzien {%if(%copy(%1,6,5)="01-01",%eval(%copy(%1,1,4)-1)"-12-31",%if(%copy(%1,9,2)="01",%copy(%1,1,5)%if(%eval(%copy(%1,6,2)-1)<10,"0","")%eval(%copy(%1,6,2)-1)"-"%eval(%item({31|28|31|30|31|30|31|31|30|31|30|31},%eval(%copy(%1,6,2)-1))+%if((%copy(%1,6,2)="03")&(!%mod(%copy(%1,1,4),4)),1,0)),%copy(%1,1,8)%if(%eval(%copy(%1,9,2)-1)<10,"0","")%eval(%copy(%1,9,2)-1)))}
#VAR time_ndzien {%if(%copy(%1,6,5)="12-31",%eval(%copy(%1,1,4)+1)"-01-01",%if(%copy(%1,9,2)=%eval(%item({31|28|31|30|31|30|31|31|30|31|30|31},%copy(%1,6,2))+%if((%copy(%1,6,2)="02")&(!%mod(%copy(%1,1,4),4)),1,0)),%copy(%1,1,5)%if(%eval(%copy(%1,6,2)+1)<10,"0")%eval(%copy(%1,6,2)+1)"-01",%copy(%1,1,8)%if(%eval(%copy(%1,9,2)+1)<10,"0")%eval(%copy(%1,9,2)+1)))}
#VAR time_ddiff {%eval((%left(%1,4)-%left(%2,4))*365+((%left(%1,4))/4)-((%left(%2,4))/4)+%item({0|31|59|90|120|151|181|212|243|273|304|334},%copy(%1,6,2))-%item({0|31|59|90|120|151|181|212|243|273|304|334},%copy(%2,6,2))+%copy(%1,9,2)-%copy(%2,9,2)+%if((!%mod(%left(%1,4),4))&(%number(%copy(%1,6,2))>2),0,-1)-%if((!%mod(%left(%1,4),4))&(%number(%copy(%1,6,2))>2),0,-1))}
#CLASS 0
